home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 2009 February / PCWFEB09.iso / Software / Linux / Kubuntu 8.10 / kubuntu-8.10-desktop-i386.iso / casper / filesystem.squashfs / usr / lib / perl / 5.10.0 / endian.ph < prev    next >
Encoding:
Text File  |  2008-07-24  |  1.3 KB  |  35 lines
  1. require '_h2ph_pre.ph';
  2.  
  3. no warnings 'redefine';
  4.  
  5. unless(defined(&_ENDIAN_H)) {
  6.     eval 'sub _ENDIAN_H () {1;}' unless defined(&_ENDIAN_H);
  7.     require 'features.ph';
  8.     eval 'sub __LITTLE_ENDIAN () {1234;}' unless defined(&__LITTLE_ENDIAN);
  9.     eval 'sub __BIG_ENDIAN () {4321;}' unless defined(&__BIG_ENDIAN);
  10.     eval 'sub __PDP_ENDIAN () {3412;}' unless defined(&__PDP_ENDIAN);
  11.     require 'bits/endian.ph';
  12.     unless(defined(&__FLOAT_WORD_ORDER)) {
  13.     eval 'sub __FLOAT_WORD_ORDER () { &__BYTE_ORDER;}' unless defined(&__FLOAT_WORD_ORDER);
  14.     }
  15.     if(defined(&__USE_BSD)) {
  16.     eval 'sub LITTLE_ENDIAN () { &__LITTLE_ENDIAN;}' unless defined(&LITTLE_ENDIAN);
  17.     eval 'sub BIG_ENDIAN () { &__BIG_ENDIAN;}' unless defined(&BIG_ENDIAN);
  18.     eval 'sub PDP_ENDIAN () { &__PDP_ENDIAN;}' unless defined(&PDP_ENDIAN);
  19.     eval 'sub BYTE_ORDER () { &__BYTE_ORDER;}' unless defined(&BYTE_ORDER);
  20.     }
  21.     if((defined(&__BYTE_ORDER) ? &__BYTE_ORDER : undef) == (defined(&__LITTLE_ENDIAN) ? &__LITTLE_ENDIAN : undef)) {
  22.     eval 'sub __LONG_LONG_PAIR {
  23.         my($HI, $LO) = @_;
  24.             eval q($LO, $HI);
  25.     }' unless defined(&__LONG_LONG_PAIR);
  26.     }
  27.  elsif((defined(&__BYTE_ORDER) ? &__BYTE_ORDER : undef) == (defined(&__BIG_ENDIAN) ? &__BIG_ENDIAN : undef)) {
  28.     eval 'sub __LONG_LONG_PAIR {
  29.         my($HI, $LO) = @_;
  30.             eval q($HI, $LO);
  31.     }' unless defined(&__LONG_LONG_PAIR);
  32.     }
  33. }
  34. 1;
  35.